Sub test3_sub1() 
Dim studs(1 To 101) 
For i = 1 To 101 
studs(i) = "Student_" & i 
Next 


' prima varianta: 
contorgrupe = 1 
For i = 1 To UBound(studs) 
Debug.Print (studs(i) & "--> in grupa" & contorgrupe) 
If (i Mod 25) = 0 Then 
contorgrupe = contorgrupe + 1 
End If 
Next 
Debug.Print ("NUMAR GRUPE=" & contorgrupe) 


‘a doua varianta: 


contorgrupe 1 
contorstuds = 0 
For i = 1 To UBound(studs) 
Debug.Print (studs(i) & "--> in grupa" & contorgrupe) 
contorstuds = contorstuds + 1 


If contorstuds = 25 Then 
contorgrupe = contorgrupe + 1 
contorstuds = 

End If 


Next 
Debug.Print ("NUMAR GRUPE=" & contorgrupe) 
End Sub 


Sub test3_sub2() 
Dim pontaj(1 To 3, 1 To 4) 


pontaj(1, 1) = A1 
pontaj(2, 1) = Al 
pontaj (3, 1) = A2 
pontaj(1, 2) = 100 
pontaj(2, 2) = 100 
pontaj (3, 2) = 150 
pontaj(1, 3) =1 
pontaj(2, 3) = 2 
pontaj(3, 3) = 3 
pontaj(1, 4) = 10 
pontaj(2, 4) = 10 
pontaj(3, 4) = 10 


For i = 1 To UBound(pontaj, 1) 
valoare spor = pontaj(i, 2) * pontaj(i, 4) * extrageProcent2(pontaj(i, 3)) 
Debug.Print (pontaj(i, 1) & "-->tip spor:" & pontaj(i, 3) & "--> suma=" & valoare spor) 


Next 

End Sub 

Function extrageProcent2(codspor) ' Varianta de cautare divide&impera 
Dim tipspor(1 To 4, 1 To 2) 

tipspor(1, 1) =1 

tipspor(1, 2) = 0.15 

tipspor(2, 1) = 2 

tipspor(2, 2) = 0.25 

tipspor(3, 1) = 3 


tipspor(3, 2) = 0.5 
tipspor(4, 1) = 4 
tipspor(4, 2) = 0.6 


inceput LBound(tipspor, 1) 
sfarsit = UBound(tipspor, 1) 
mijloc = Int((sfarsit + inceput) / 2) 
Do While tipspor(mijloc, 1) < > codspor And inceput < sfarsit 
If codspor > tipspor(mijloc, 1) Then 
inceput = mijloc + 1 


Else 
sfarsit = mijloc - 1 
End If 
mijloc = Int((sfarsit + inceput) / 2) 
Loop 


If tipspor(mijloc, 1) = codspor Then 
extrageProcent2 = tipspor(mijloc, 2) 
Else 
extrageProcent2 = 0 
End If 


End Function 


Function extrageProcent(codspor) ' Varianta cea mai simpla (neoptimizata) 
Dim tipspor(1 To 4, 1 To 2) 
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Do While tipspor(i, 1) < > codspor And i <= UBound(tipspor, 1) 
iscir 

Loop 


' de obicei e bine sa testam daca l-a gasit (nu era obligatoriu pentru test) 


If i > UBound(tipspor, 1) + 1 Then 
extrageProcent = 0 
Else ' l-a gasit 
extrageProcent = tipspor(i, 2) 
End If 


End Function 


